home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / EGA35.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  745 b   |  48 lines
  1. N EGA35.COM
  2. A 100
  3. CLD    
  4. MOV    BH,03        ; 8x8 font pointer
  5. MOV    AX,1130
  6. INT    10
  7. PUSH    ES
  8. POP    DS
  9. MOV    SI,BP        ; DS:SI points to font
  10. PUSH    CS
  11. POP    ES
  12. MOV    DI,0152        ; ES:DI to destination
  13. MOV    BX,0100        ; Number chars
  14. MOV    CX,0008        ; Bytes per char
  15. REPZ            ; Move them
  16. MOVSB    
  17. SUB    AX,AX        ; Store two zeroes
  18. STOSW    
  19. DEC    BX
  20. JNZ    0114        ; Next character
  21. MOV    BP,0152        ; Points to font
  22. MOV    DX,0000        ; Starting char
  23. MOV    CX,0100        ; Number of chars
  24. MOV    BH,0A        ; Bytes per char
  25. MOV    BL,00        ; Block to load
  26. MOV    AX,1110        ; Load user font
  27. INT    10
  28. SUB    AX,AX
  29. MOV    DS,AX
  30. PUSH    [0487]        ; Fix up cursor
  31. OR    BYTE PTR [0487],01
  32. MOV    CX,0800
  33. MOV    AH,01
  34. INT    10
  35. POP    [0487]
  36. MOV    DX,03B4        ; Fix up underline
  37. MOV    AX,0914
  38. OUT    DX,AX
  39. INT    20
  40.  
  41. R CX
  42. 52
  43. W
  44. Q
  45.  
  46.  
  47.  
  48.